 sum of Natural numbers


 MOVLW 0x2
 MOVWF divisor
 MOVLW 0x0
 MOVWF 0x77
 MOVF a, W
 ADDLW 0x1
 MOVWF __pcstackCOMMON
 MOVLW 0x0
 BTFSC STATUS, 0x0
 MOVLW 0x1
 MOVWF 0x71
 MOVF a, W
 MOVWF 0x7B
 CLRF 0x7C
 MOVF 0x7B, W
 MOVWF multiplicand
 MOVF 0x7C, W
 MOVWF 0x73
 BCF PCLATH, 0x4
 BCF PCLATH, 0x3
 CALL 0x744
 BCF PCLATH, 0x4
 BCF PCLATH, 0x3
 MOVF 0x71, W
 CLRF 0x79
 ADDWF 0x79, F
 MOVF __pcstackCOMMON, W
 CLRF dividend
 ADDWF dividend, F
 BCF PCLATH, 0x4
 BCF PCLATH, 0x3
 CALL 0x792
 MOVF 0x77, W
 BCF STATUS, 0x5
 BCF STATUS, 0x6
 CLRF 0x35
 ADDWF 0x35, F
 MOVF divisor, W
 CLRF b
 ADDWF b, F